-- background: 4147 from stack: in.1 Shell
-- bmap block id: 16679
-- flags: 4000
-- background id: 0
-- name: Info Card Background
----- HyperTalk script -----
on openCard
  global menu1,menu2
  do "textSetUp2"
  enableMenu menu1,5,true
  enableMenu menu1,6,true
  enableMenu menu1,7,true
  enableMenu menu1,8,true
  enableMenu menu1,10,true
  enableMenu menu1,12,false
  -----------------
  enableMenu menu2,1,true
  enableMenu menu2,2,true
  enableMenu menu2,3,true
  enableMenu menu2,4,true
  enableMenu menu2,5,true
  enableMenu menu2,6,true
  -----------------
  set lockText of background field "info1" to true
  hide bkgnd button "Lock Text"
  show bkgnd button "Edit Text"
  -----------------
  set icon of background button "Edit Text" to 23663
  set icon of background button "Lock Text" to 22262
  ---
  do "charCount"
  do "wordCount"
  ---
end openCard
-------------------------------------------------------------------
on doMenu it
  if it is "Delete Card" or it is "Cut Card" then
    if background field "CheckID" is "Master" then
      Beep 20
      answer "I can't let you remove a 'Master Original' card!" with "Oops, sorry!"
      exit doMenu
    end if
    play "boing" gh
    answer "Don't forget… delete 'Index' reference too!" with "Yes, I will!"
    set cursor to 4
  end if
  pass doMenu
end doMenu
-------------------------------------------------------------------




-- part 1 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=487 top=34 right=90 bottom=505
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Index Link
----- HyperTalk script -----
on mouseUp
  visual effect dissolve to black
  go to card id 6849
end mouseUp




-- part 6 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=487 top=34 right=90 bottom=505
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Index Link
----- HyperTalk script -----
on mouseUp
  visual effect dissolve to black
  go to card id 6849
end mouseUp




-- part 8 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=15 top=28 right=322 bottom=39
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Title Card Link
----- HyperTalk script -----
on mouseUp
  visual effect dissolve to black
  go to card id 2976
end mouseUp




-- part 13 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=91 top=28 right=60 bottom=444
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  visual effect zoom open to black
  pop card
end mouseUp



-- part 14 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=49 top=28 right=58 bottom=82
-- title width / last selected line: 0
-- icon id / first selected line: 23663 / 23663
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Edit Text
----- HyperTalk script -----
on mouseUp
  set lockText of field info1 to false
  -------
  hide bkgnd button "Edit Text"
  show bkgnd button "Lock Text"
  -------
  click at 50, 75
end mouseUp



-- part 17 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=446 top=30 right=55 bottom=483
-- title width / last selected line: 0
-- icon id / first selected line: 21700 / 21700
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  if the optionKey is down then
    domenu "- mockwrite 4.3"
  else
    go home
  end if
end mouseUp



-- part 18 (field)
-- low flags: 81
-- high flags: 0001
-- rect: left=488 top=202 right=255 bottom=504
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Hide Edit Text Button


-- part 20 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=262 top=293 right=318 bottom=305
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  visual effect wipe left
  go next
end mouseUp



-- part 21 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=227 top=294 right=317 bottom=265
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Previous
----- HyperTalk script -----
on mouseUp
  visual effect wipe right
  go prev
end mouseUp



-- part 22 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=47 top=28 right=58 bottom=83
-- title width / last selected line: 0
-- icon id / first selected line: 22262 / 22262
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Lock Text
----- HyperTalk script -----
on mouseUp
  set lockText of field info1 to true
  -----------------
  hide bkgnd button "Lock Text"
  show bkgnd button "Edit Text"
end mouseUp



-- part 25 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=452 top=295 right=321 bottom=482
-- title width / last selected line: 0
-- icon id / first selected line: 19678 / 19678
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Mini Help Link
----- HyperTalk script -----
on mouseUp
  play harpsichord g
  visual effect zoom open to white
  push card
  go to card "Mini Help"
end mouseUp



-- part 27 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=92 top=32 right=58 bottom=426
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 18
-- style flags: 0
-- line height: 24
-- part name: Title Field


-- part 26 (field)
-- low flags: 01
-- high flags: 2007
-- rect: left=44 top=65 right=292 bottom=479
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Info1
----- HyperTalk script -----
on mouseUp
  global newName, wordTotal
  if the selection is empty then
    set lockText of the target to false
    repeat two times
      click at the clickLoc
    end repeat
    put the selection into newName
    put the length of newName into wordTotal
    push card
    if the optionKey is down and the shiftKey is down then
      -------
      set lockScreen to true
      find newName in background field "Title Field"
      if the result is empty then
        pop card
        beep
        set lockScreen to false
        answer "That word has been used… choose another!" with "OK"
        exit mouseUp
      end if
      -------
      type newName & "*"
      -------
      do "firstCap"
      -------
      do "doCard"
      -------
    else
      if the optionKey is down then
        -------
        set lockScreen to true
        find newName in background field "Title Field"
        if the result is empty then
          pop card
          beep
          set lockScreen to false
          answer "That word has been used… choose another!" with "OK"
          exit mouseUp
        end if
        -------
        type newName & "*"
        -------
        do "doCard"
        -------
      else
        if the shiftKey is down then
          -------
          set lockScreen to true
          find newName in background field "Title Field"
          if the result is empty then
            pop card
            beep
            set lockScreen to false
            answer "That word has been used… choose another!" with "OK"
            exit mouseUp
          end if
          -------
          type newName & "*"
          -------
          do "allCap"
          -------
          do "doCard"
          -------
        else
          push card
          visual effect zoom open to white
          find newName in field "Title Field"
          if the result is not empty then
            answer "No match for keyword " &quote& newName&quote
          end if
        end if
      end if
    end if
  else
    beep
    answer "Title already used… try another!" with "OK"
  end if
  click at 0,0 --disable selection
  set lockText of the target to true
end mouseUp
-----------------------------------------------------------------------
on doCard
  global newName
  doMenu New Card
  set name of this card to newName
  put newName into bkgnd field "Title Field"
  put empty into bkgnd field id 35 -- CheckID
  put "untitled" into bkgnd field id 31
end doCard
----



-- part 28 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=91 top=28 right=60 bottom=444
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  visual effect zoom open to black
  pop card
end mouseUp



-- part 29 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=91 top=28 right=60 bottom=444
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  visual effect zoom open to black
  pop card
end mouseUp



-- part 30 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=0 top=36 right=326 bottom=14
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Go Back Button
----- HyperTalk script -----
on mouseUp
  visual effect dissolve to black
  domenu "back"
end mouseUp



-- part 31 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=295 top=305 right=321 bottom=455
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 13
-- part name: Header


-- part 32 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=161 top=305 right=321 bottom=214
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 13
-- part name: Char Count


-- part 33 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=102 top=305 right=321 bottom=155
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 13
-- part name: Word Count
----- HyperTalk script -----
on mouseUp
  do "charCount"
end mouseUp


-- part 34 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=102 top=294 right=320 bottom=214
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Do word/char count
----- HyperTalk script -----
on mouseUp
  do "charCount"
  do "wordCount"
end mouseUp



-- part 35 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=44 top=296 right=310 bottom=81
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: CheckID


-- part 36 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=320 top=293 right=319 bottom=430
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Reset "Untitled"
----- HyperTalk script -----
on mouseUp
  put "untitled" into field id 31
end mouseUp